module jm_h_swave_calc_mod; 
use jm_input_data;
use jm_work_data;
implicit none;

contains 

SUBROUTINE jm_h_swave_calc(); implicit none;  
  call dbg_info("-->jm_h_swave_calc()"); 

end SUBROUTINE

end module 